home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 0292.ZIP / GENEPROG.ARC / GENEPROG.PRG < prev    next >
Text File  |  1985-12-21  |  2KB  |  59 lines
  1. * GENEALOGY PROGRAM   6/1/85                             GENEPROG ì
  2. *
  3. SET HEADING OFF
  4. SET SAFETY OFF
  5. SET TALK OFF
  6. DO TITLE
  7. USE GENE INDEX SNINDX
  8. DO WHILE .T.
  9. CLEAR
  10. ?
  11. ?
  12. ?"****************************************************************************"
  13. ?
  14. ?"                           MENU OF OPTIONS"
  15. ?
  16. ?"                    1. REVIEW ALL INDIVIDUAL RECORDS "
  17. ?"                    2. REVIEW ALL INDIVIDUAL RECORDS (SHORT FORM)"
  18. ?"                    3. REVIEW INDIVIDUAL RECORD BY NAME   "
  19. ?"                    4. PRINT ALL INDIVIDUAL RECORDS"
  20. ?"                    5. PRINT ALL INDIVIDUAL RECORDS FOR A SURNAME"
  21. ?"                    6. PRINT SPECIFIED INDIVIDUAL RECORD"
  22. ?"                    7. DISPLAY OR PRINT SUMMARY OF NAMES "
  23. ?"                    8. ADD A NEW INDIVIDUAL RECORD"
  24. ?"                    9. INDEX OR FILL DATABASE"
  25. ?"                    S. STOP. RETURN TO dBASE CONTROL"
  26. ?
  27. ?"               ENTER NUMBER CORRESPONDING TO YOUR SELECTION"
  28. ?                    
  29. ?
  30. ?"****************************************************************************"
  31. ?
  32. WAIT TO SELECTION
  33. CLEAR
  34. DO CASE
  35.     CASE SELECTION="1"
  36.     DO REVIEW
  37.     CASE SELECTION="2"
  38.     DO SHORTREV
  39.     CASE SELECTION="3"
  40.     DO FINDEM
  41.     CASE SELECTION="4"
  42.     DO OUTPUT
  43.     CASE SELECTION="5"
  44.     DO DESOUT
  45.     CASE SELECTION="6"
  46.     DO ONEOUT
  47.     CASE SELECTION="7"
  48.     DO LISTING
  49.     CASE SELECTION="8"
  50.     DO ADDREC
  51.     CASE SELECTION="9"
  52.     DO DBFILL
  53.     CASE SELECTION="S"
  54.     SET TALK ON
  55.     RETURN
  56. ENDCASE
  57. ENDDO
  58. *END OF PROGRAM
  59.